home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / rpc / svc.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  1.9 KB  |  63 lines
  1. if (!defined &__SVC_HEADER__) {
  2.     eval 'sub __SVC_HEADER__ {1;}';
  3.     eval 'sub svc_getcaller {
  4.         local($x) = @_;
  5.         eval "(&($x)-> &xp_raddr)";
  6.     }';
  7.     eval 'sub SVC_RECV {
  8.         local($xprt, $msg) = @_;
  9.         eval "(*($xprt)-> &xp_ops-> &xp_recv)(($xprt), ($msg))";
  10.     }';
  11.     eval 'sub svc_recv {
  12.         local($xprt, $msg) = @_;
  13.         eval "(*($xprt)-> &xp_ops-> &xp_recv)(($xprt), ($msg))";
  14.     }';
  15.     eval 'sub SVC_STAT {
  16.         local($xprt) = @_;
  17.         eval "(*($xprt)-> &xp_ops-> &xp_stat)($xprt)";
  18.     }';
  19.     eval 'sub svc_stat {
  20.         local($xprt) = @_;
  21.         eval "(*($xprt)-> &xp_ops-> &xp_stat)($xprt)";
  22.     }';
  23.     eval 'sub SVC_GETARGS {
  24.         local($xprt, $xargs, $argsp) = @_;
  25.         eval "(*($xprt)-> &xp_ops-> &xp_getargs)(($xprt), ($xargs), ($argsp))";
  26.     }';
  27.     eval 'sub svc_getargs {
  28.         local($xprt, $xargs, $argsp) = @_;
  29.         eval "(*($xprt)-> &xp_ops-> &xp_getargs)(($xprt), ($xargs), ($argsp))";
  30.     }';
  31.     eval 'sub SVC_REPLY {
  32.         local($xprt, $msg) = @_;
  33.         eval "(*($xprt)-> &xp_ops-> &xp_reply) (($xprt), ($msg))";
  34.     }';
  35.     eval 'sub svc_reply {
  36.         local($xprt, $msg) = @_;
  37.         eval "(*($xprt)-> &xp_ops-> &xp_reply) (($xprt), ($msg))";
  38.     }';
  39.     eval 'sub SVC_FREEARGS {
  40.         local($xprt, $xargs, $argsp) = @_;
  41.         eval "(*($xprt)-> &xp_ops-> &xp_freeargs)(($xprt), ($xargs), ($argsp))";
  42.     }';
  43.     eval 'sub svc_freeargs {
  44.         local($xprt, $xargs, $argsp) = @_;
  45.         eval "(*($xprt)-> &xp_ops-> &xp_freeargs)(($xprt), ($xargs), ($argsp))";
  46.     }';
  47.     eval 'sub SVC_DESTROY {
  48.         local($xprt) = @_;
  49.         eval "(*($xprt)-> &xp_ops-> &xp_destroy)($xprt)";
  50.     }';
  51.     eval 'sub svc_destroy {
  52.         local($xprt) = @_;
  53.         eval "(*($xprt)-> &xp_ops-> &xp_destroy)($xprt)";
  54.     }';
  55.     if (defined &FD_SETSIZE) {
  56.     eval 'sub svc_fds { &svc_fdset. &fds_bits[0];}';
  57.     }
  58.     else {
  59.     }
  60.     eval 'sub RPC_ANYSOCK {-1;}';
  61. }
  62. 1;
  63.